library(rbacon)

core_name <- "PLESH-4_all"
cores_dir <- "D:/Bacon_test"

cores_dir <- normalizePath(
  cores_dir,
  winslash = "/",
  mustWork = TRUE
)

cores_dir <- paste0(cores_dir, "/")

Bacon(
  core = core_name,
  coredir = cores_dir,
  thick = 5,
  d.min = 0,
  d.max = 395,
  d.by = 1,
  depths.file = FALSE,
  add.bottom = TRUE,
  acc.mean = 10,
  acc.shape = 1.5,
  mem.mean = 0.5,
  mem.strength = 10,
  boundary = NA,
  hiatus.depths = NA,
  hiatus.max = 10000,
  slump = c(),
  cc = 1,
  cc1 = "IntCal20",
  cc2 = "Marine20",
  cc3 = "SHCal20",
  cc4 = "ConstCal",
  postbomb = 0,
  delta.R = 0,
  delta.STD = 0,
  normal = FALSE,
  t.a = 3,
  t.b = 4,
  ssize = 4000,
  burnin = 500,
  seed = 182606,
  prob = 0.95,
  depth.unit = "cm",
  age.unit = "yr",
  BCAD = FALSE,
  plot.pdf = TRUE,
  suggest = FALSE,
  ask = FALSE,
  run = TRUE
)

agedepth()